Public Class SForm
    Inherits System.Windows.Forms.Form

#Region "Events"

    Sub InsertTask(ByVal Task As String, ByVal strTitle As String, Optional ByVal enmMessageType As MessageTypes = MessageTypes.OK)
        Try
            If Not Me.Owner Is Nothing Then
                Select Case enmMessageType
                    Case MessageTypes.Error : MsgBox(Task, MsgBoxStyle.Critical, strTitle)
                    Case MessageTypes.OK : MsgBox(Task, MsgBoxStyle.Information, strTitle)
                    Case MessageTypes.Warning : MsgBox(Task, MsgBoxStyle.Information, strTitle)
                End Select
            End If

        Catch ex As Exception
        End Try
    End Sub
#End Region

End Class
